home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / 1st_b110.zip / $$MAIL.SCR < prev    next >
Text File  |  1993-01-26  |  3KB  |  112 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ Qmail mail script for 1stReader │
  3. '       │ Written by Mark Herring         │
  4. '       │ September 27, 1992              │
  5. '       └─────────────────────────────────┘
  6.  
  7. CAPTURE ON
  8. TIMEOUT 30
  9.  
  10. LOOKFOR "correct? " "^M"
  11. LOOKFOR "elp, More? " "N^M"
  12. LOOKFOR "(Enter)=yes? " "N^M"
  13. LOOKFOR "Language #" "@LANGUAGE@^M"
  14. LOOKFOR ") to continue?" "^M"
  15. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  16.  
  17. LOCKLINE 20 30
  18. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  19. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  20. COMMENT "@DATE@ @TIME@  Logging in to system"
  21.  
  22. WAITFOR "color|graphics" 20
  23. TRANSMIT "@GRAPHICS@ Q NS^M"
  24. WAITFOR "first name" 50
  25. IF FOUND=0 EXIT
  26. TRANSMIT "@USER@^M"
  27. WAITFOR "password|new user?" 30
  28. LOOKFOR "correct? " ""
  29. IF FOUND=1 GOTO LOGIN
  30. IF FOUND=2 GOTO NEWUSER
  31. GOTO COMMAND
  32.  
  33. :NEWUSER
  34. COMMENT "@DATE@ @TIME@  New user login"
  35. LOOKFOR "(Enter)=yes? " ""
  36. LOOKFOR ") to continue?" ""
  37. IF NOT SWITCH 1 HELP 198
  38. TRANSMIT "^M"
  39. WAITFOR ")=yes?" 30
  40. TRANSMIT "Y^M"
  41. WAITFOR "please!)?" 30
  42. TRANSMIT "@PASSWORD@^M"
  43. WAITFOR "verify?" 30
  44. TRANSMIT "@PASSWORD@^M"
  45. TERMINAL
  46. LOOKFOR "(Enter)=yes? " "N^M"
  47. LOOKFOR ") to continue?" "^M"
  48. GOTO DOOR
  49.  
  50. :LOGIN
  51. COMMENT "@DATE@ @TIME@  Transmitting password"
  52. TRANSMIT "@PASSWORD@^M"
  53.  
  54. :COMMAND
  55. WAITFOR "Command?"
  56. TIMEOUT 60
  57.  
  58. :DOOR
  59. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  60. TRANSMIT "J @CONFERENCE@ Q^M"
  61. WAITFOR "=yes?" 3
  62. IF FOUND=1 TRANSMIT "N^M"
  63. COMMENT "@DATE@ @TIME@  Opening Qmail Door"
  64. TRANSMIT "@QMAIL@ PROMPTS;@COMMAND@D@API$(48);Y;G^M"
  65. LOOKFOR "<AUTOSTART>" "X'1B"
  66.  
  67. IF NOT KEYWORDS GOTO REPLIES
  68. COMMENT "@DATE@ @TIME@  Transmitting keywords"
  69. WAITFOR "<KEYUP>"
  70. UPLOAD @API$(14)KEYWORDS
  71.  
  72. :REPLIES
  73. IF NOT REPLIES GOTO DOWNLOAD
  74. COMMENT "@DATE@ @TIME@  Uploading replies"
  75. WAITFOR "<UPLOAD>"
  76. UPLOAD @REPDIR@@BBSID@.REP
  77. WAITFOR "<DELETE PACKET>|<DELETE NO>|<BAD UPLD>"
  78. IF FOUND=1 GOTO GOODUPLD
  79. GOTO DOWNLOAD
  80.  
  81. :GOODUPLD
  82. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  83. KILL @REPDIR@@BBSID@.REP
  84. COUNT REP
  85.  
  86. :DOWNLOAD
  87. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  88. WAITFOR "<DOWNLOAD>|<NO TRANSFER>|<NO TIME>"
  89. IF FOUND=1 GOTO GETMAIL
  90. GOTO GOODBYE
  91.  
  92. :GETMAIL
  93. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  94. WAITFOR "<DL SUCCESS>|<DL ERROR>"
  95. IF FOUND=2 GOTO EXIT
  96. COUNT QWK
  97. GOTO EXIT
  98.  
  99. :GOODBYE
  100. PAUSE 2
  101. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  102. TRANSMIT "G^M"
  103.  
  104. :EXIT
  105. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  106. LOOKFOR "<GOODBYE>" "^M"
  107. WAITFOR "<HANGUP>" 20
  108. PAUSE 2
  109.  
  110. CAPTURE OFF
  111.  
  112.